setwd("~/Desktop/boulder_map")
boulder_th <- readOGR(dsn="OSMP_TH", layer = "OSMP_TH")
## OGR data source with driver: ESRI Shapefile
## Source: "/Users/garrettsmith/Desktop/boulder_map/OSMP_TH", layer: "OSMP_TH"
## with 37 features
## It has 33 fields
boulder_trails <- readOGR(dsn="OSMP_Trails", layer = "OSMP_Trails")
## OGR data source with driver: ESRI Shapefile
## Source: "/Users/garrettsmith/Desktop/boulder_map/OSMP_Trails", layer: "OSMP_Trails"
## with 573 features
## It has 16 fields
## Integer64 fields read as strings: OBJECTID RID TRLID MEASUREDFE
boulder_map2 <- leaflet()%>%
addProviderTiles(providers$OpenStreetMap.HOT, group = "Streets")%>%
addProviderTiles(providers$OpenTopoMap,group='Topography') %>%
addLayersControl(baseGroups=c('Streets','Topography'),
options = layersControlOptions(collapsed = F, autoZIndex = T)) %>%
setView(-105.2705, 40.0150, zoom = 11)%>%
addPolylines(data = boulder_trails, stroke = TRUE, color = "blue", weight = 2, opacity = 1.0,
fill = FALSE, smoothFactor = 1, popup = ~ TRAILNAME)%>%
addCircleMarkers(data = boulder_th, lng = ~ Long, lat = ~ Lat, radius = 5, stroke = FALSE,
fill = TRUE, fillColor = "red", fillOpacity = 1.0, popup = ~ AccessName)%>%
addLegend(position = "bottomright", labels = c("Trailheads", "Trails"), colors = c("red", "blue"),
opacity = 1.0)
boulder_map2
.